Разработчики программного обеспечения? накопив большой опыт разработки приложений, пришли к выводу: - для всех ласков не будешь. Выход был в том, чтобы дать пользователям возможность реализовывать некоторую функциональность самим. В наше время практически все крупные разработки поставляются с макроязыками. Excel - не исключение. Автоматизировать свои задачи можно, используя VBA. А при чем тут макросы? Макросы - это устаревшее названия VBA. Когда-то в ранних версиях Excel позволял просто записывать последовательность команд на некотором своем языке. Но позже этот язык перерос в VBA. Для работы с макросами у нас есть специальное меню в Сервис - Макрос.

62_1.gif (3560 b)

Excel еще с давних времен умеет записывать действия пользователя, а потом проигрывать их, как магнитофон. Давайте попробуем. Идем в меню Сервис - Макрос - Начать запись. Появиться диалоговое окно начала записи.

62_2.gif (3399 b)

В окне есть имя, кто его создал и когда. Если все Вас устраивает, жмете ОК. Появится панелька управления записью.

62_3.gif (1767 b)

Сделайте что-нибудь в Excel, например, установите рамку и фон ячейки. Потом остановите запись. В этом окне будет список тех макросов, которые присутствуют у Вас в Excel.

62_4.gif (5099 b)

При желании Вы можете повторить выполнение макроса над другой ячейкой, тем самым, сократив время. Кстати, записывать в макросы можно довольно сложные последовательности действий. Есть еще одна кнопка: Изменить. Эта кнопка позволит нам просмотреть код VBA. Давайте взглянем ради интереса. Эта кнопка позволит нам просмотреть код VBA. Давайте глянем ради интереса.

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 08.08.01 (Каев Артем)
'
' 
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
End Sub

Если Вам стало интересно, как создавать свои приложения для Excel, то читайте раздел про VBA

Шаг 62 - Макросы